00100		TITLE SLAP
00200		ENTRY MOLD
00300	MOLD:	0
00400		HRRZ 1,1(16)
00500		SOJ 1,
00600		MOVE 2,1
00700		ADD 1,@0(16)
00800		HRRZ 3,3(16)
00900		SOJ 3,
01000		MOVEM 3,MOUP#
01100		ADD 3,@2(16)
01200		HRRZ 6,5(16)
01300		SOJ 6,
01400		MOVE 5,@4(16)
01500		AOJ 5,
01600		HRLZM 5,@6(16)
01700		SOJ 5,
01800		ADD 5,6
01900	ADIN:	AOJ 2,
02000		CAMLE 2,1
02100		JRST RETUR
02200		MOVE 4,MOUP
02300		SETZ 10,
02400		MOVE 11,@2
02500	SEQU:	AOJ 4,
02600		CAMLE 4,3
02700		JRST NEWR
02800		CAME 11,@4
02900		JRST SEQU
03000	TOEQ:	AOJ 10,
03100		MOVE 11,2
03200		ADD 11,10
03300		CAMLE 11,1
03400		JRST LWRD
03500		MOVE 12,4
03600		ADD 12,10
03700		MOVE 7,@11
03800		CAMLE 12,3
03900		JRST LWRD	
04000		CAMN 7,@12
04100		JRST TOEQ
04200	LWRD:	SOJ 10,
04300	ICKY:	AOJ 5,
04400		SUB 4,MOUP
04500		HRLZM 4,@5
04600		ADD 4,10
04700		HRRM 4,@5
04800		ADD 2,10
04900		JRST ADIN
05000	NEWR:	AOJ 3,
05100		MOVEM 11,@3
05200		JRST ICKY
05300	RETUR:	SUB 3,MOUP
05400		MOVEM 3,@2(16)
05500	BGIN:	HLRZ 7,@6(16)
05600		ADD 7,6
05700	NRITE:	HRRZ 10,@7
05800		AOJ 7,
05900		CAMLE 7,5
06000		JRST NFIR
06100		AOJ 10,
06200		HLRZ 11,@7
06300		CAME 10,11
06400		JRST NRITE
06500		HRRZ 11,@7
06600		SOJ 7,
06700		HRRM 11,@7
06800	AGIN:	AOJ 7,
06900		MOVE 10,7
07000		AOJ 10,
07100		CAMLE 10,5
07200		JRST BOP
07300		MOVE 11,@10
07400		MOVEM 11,@7
07500		CAMGE 10,5
07600		JRST AGIN
07700	BOP:	SOJ 5,
07800		JRST BGIN
07900	
08000	NFIR:	HLRZ 7,@6(16)
08100		ADD 7,6
08200		MOVE 11,7
08300	STRT:	MOVE 10,6
08400	IBAD:	AOJ 10,
08500		CAML 10,7
08600		JRST NEQU
08700		MOVE 1,@10
08800		CAME 1,@11
08900		JRST IBAD
09000		SUB 10,6
09100		HRLZ 1,10
09200		HRR 1,10
09300		IOR 1,[400000,,0]
09400		MOVEM 1,@11
09500	NEQU:	AOJ 11,
09600		CAMG 11,5
09700		JRST STRT
09800		JRST SNUB
09900	ITRY:	AOJ 7,
10000	SNUB:	CAML 7,5
10100		JRST BACK
10200		MOVE 10,@7
10300		CAIL 10,0
10400		JRST ITRY
10500		HRRZ 10,@7
10600		AOJ 10,
10700		AOJ 7,
10800		MOVN 1,@7
10900		HLRZ 11,1
11000		CAME 10,11	
11100		JRST SNUB
11200		HRRZ 11,@7
11300		SOJ 7,
11400		HRRM 11,@7
11500		MOVE 11,7
11600		MOVE 1,11
11700		AOJ 1,
11800	ONEM:	AOJ 1,
11900		AOJ 11,
12000		MOVE 10,@1
12100		MOVEM 10,@11
12200		CAME 1,5
12300		JRST ONEM
12400		SOJ 5,
12500		JRST SNUB
12600	BACK:	SUB 5,6
12700		MOVEM 5,@4(16)
12800		HRRM 5,@6(16)
12900		JRA 16,7(16)
13000		END